home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / WIN_VB / ALTVB103.ZIP;1 / ALTVBDOS.DEF < prev    next >
Encoding:
Text File  |  1993-05-08  |  10.8 KB  |  225 lines
  1. ' ALTVBDOS.DEF  this is a set of prototype declarations for the procedures
  2. '               which are included in the ASSEMBLY-LANGUAGE TOOLBOX. Include
  3. '               only the routines which you intend to use in your code.
  4. '
  5. '   Author:     Christy Gemmell
  6. '   For:        Assembly-Language Toolbox for
  7. '               Visual BASIC for DOS
  8. '   Version:    1.01
  9. '   Date:       9/3/1993
  10. '
  11. '   Compatible with the Standard and Professional Editions.
  12. '
  13. '   The following prototypes refer to external procedures which are
  14. '   in the library files ALTVBDOS.LIB and ALTVBDOS.QLB. One or other of
  15. '   these libraries must be linked to the program which calls them.
  16. '
  17. '   Assembly-language functions in the library.
  18. '
  19.     DECLARE FUNCTION Attrib% (FileSpec$)
  20.     DECLARE FUNCTION Attribute% (BYVAL Fore%, BYVAL Back%)
  21.     DECLARE FUNCTION BitTest% (Number%, Bit%)
  22.     DECLARE FUNCTION CapsLock% (BYVAL Switch%)
  23.     DECLARE FUNCTION Cpu% ()
  24.     DECLARE FUNCTION DayNumber& (BYVAL Dy%, BYVAL Mnth%, BYVAL Yr%)
  25.     DECLARE FUNCTION DiskReady% (BYVAL Drive%)
  26.     DECLARE FUNCTION DisplayMode% ()
  27.     DECLARE FUNCTION DisplayPage% ()
  28.     DECLARE FUNCTION EmsError% ()
  29.     DECLARE FUNCTION EmsFrame% ()
  30.     DECLARE FUNCTION EmsOwned% (BYVAL Handle%)
  31.     DECLARE FUNCTION EmsPages% (BYVAL Switch%)
  32.     DECLARE FUNCTION EmsPresent% ()
  33.     DECLARE FUNCTION EmsVersion% ()
  34.     DECLARE FUNCTION FarPeek% (BYVAL Segment&, BYVAL Offset&)
  35.     DECLARE FUNCTION FileSize& (FileSpec$)
  36.     DECLARE FUNCTION FloppyDrives% ()
  37.     DECLARE FUNCTION FreeSpace& (BYVAL DriveNo%)
  38.     DECLARE FUNCTION GamesPort% ()
  39.     DECLARE FUNCTION Handles% ()
  40.     DECLARE FUNCTION HiByte% (BYVAL Number%)
  41.     DECLARE FUNCTION HiWord% (BYVAL Number&)
  42.     DECLARE FUNCTION Interval& (Frst&, Scnd&)
  43.     DECLARE FUNCTION KeyFlags% ()
  44.     DECLARE FUNCTION KeyIn% ()
  45.     DECLARE FUNCTION KeyStat% ()
  46.  
  47. '   ******* Note new function LASTWORD *************************************
  48. '
  49.     DECLARE FUNCTION LastWord$ (Last$)
  50.     DECLARE FUNCTION LoByte% (BYVAL Number%)
  51.  
  52. '   ******* Note new function LONGEST **************************************
  53. '
  54.     DECLARE FUNCTION Longest$ (Original$)
  55.     DECLARE FUNCTION LoWord% (BYVAL Number&)
  56.     DECLARE FUNCTION MastrEnv% ()
  57.     DECLARE FUNCTION MathsChip% ()
  58.     DECLARE FUNCTION MouseInit% ()
  59.     DECLARE FUNCTION NetTest% ()
  60.     DECLARE FUNCTION NextWord$ (Last$)
  61.     DECLARE FUNCTION NumberDay% (Number&, Dy%, Mnth%, Yr%)
  62.     DECLARE FUNCTION NumLock% (BYVAL Switch%)
  63.     DECLARE FUNCTION ParallelPorts% ()
  64.     DECLARE FUNCTION PeekWord& (BYVAL Segment&, BYVAL Offset&)
  65.     DECLARE FUNCTION PrinterStat% (BYVAL Prntr%)
  66.     DECLARE FUNCTION PrinTest% (BYVAL Prntr%)
  67.     DECLARE FUNCTION ProgName$ ()
  68.     DECLARE FUNCTION RamDisk% ()
  69.     DECLARE FUNCTION Rand% (BYVAL Lower%, BYVAL Higher%)
  70.     DECLARE FUNCTION ScreenRows% ()
  71.     DECLARE FUNCTION ScreenWidth% ()
  72.     DECLARE FUNCTION ScrLock% (BYVAL Switch%)
  73.     DECLARE FUNCTION SerialPorts% ()
  74.     DECLARE FUNCTION Sharing% ()
  75.     DECLARE FUNCTION Soundex& (Text$)
  76.     DECLARE FUNCTION Spooler% ()
  77.     DECLARE FUNCTION SpoolSuspend% ()
  78.     DECLARE FUNCTION StatusLine% (Message$)
  79.     DECLARE FUNCTION StringScan% (Trgt$, BYVAL Size%, BYVAL Strt%, BYVAL Addr%)
  80.     DECLARE FUNCTION TempFile$ (BYVAL FlAttr%)
  81.     DECLARE FUNCTION TextVal& (Text$)
  82.     DECLARE FUNCTION Verify% (BYVAL Default%, BYVAL Row%, Prompt$,_
  83.                               BYVAL Attr%, BYVAL Mouse%)
  84.     DECLARE FUNCTION WkDay% (BYVAL Dy%, BYVAL Mnth%, BYVAL Yr%)
  85.  
  86.     DECLARE SUB BackFill (BYVAL Row%, BYVAL Col%, BYVAL Rows%, BYVAL Cols%,_
  87.                           BYVAL Attr%)
  88.     DECLARE SUB BitReSet (Number%, Bit%)
  89.     DECLARE SUB BitSet (Number%, Bit%)
  90.     DECLARE SUB BitShl (Number&, Count%)
  91.     DECLARE SUB BitShr (Number&, Count%)
  92.     DECLARE SUB Blinking (BYVAL Switch%)
  93.     DECLARE SUB CgaCopy (BYVAL Switch%, Buffer$)
  94.     DECLARE SUB CgaScroll (BYVAL xLoc%, BYVAL yLoc%, BYVAL xPixels%,_
  95.                            BYVAL yPixels%, BYVAL Direction%)                 
  96.     DECLARE SUB CgaText (BYVAL xLoc%, BYVAL yLoc%, Text$,_
  97.                          BYVAL Attr%, BYVAL Scale%)
  98.     DECLARE SUB Cipher (Text$, KeyWord$)
  99.     DECLARE SUB ClearEnd (BYVAL Switch%, BYVAL Attr%)
  100.     DECLARE SUB Curtains (BYVAL Speed%, BYVAL Attr%)
  101.     DECLARE SUB Delay (BYVAL MilliSeconds%)
  102.     DECLARE SUB DisablePrtSc ()
  103.     DECLARE SUB DOSBox (BYVAL Switch%, BYVAL Y1%, BYVAL X1%, BYVAL Y2%,_
  104.                         BYVAL X2%, BYVAL Attr%)
  105.     DECLARE SUB DwPrint (BYVAL Prntr%, Buffer$, BYVAL NewLine%)
  106.     DECLARE SUB EmPrint (BYVAL Prntr%, Buffer$, BYVAL NewLine%)
  107.     DECLARE SUB EmsGet (BYVAL Segment%, BYVAL Offset%, BYVAL Length%,_
  108.                         BYVAL Page%, BYVAL Handle%, Done%)
  109.     DECLARE SUB EmsMap (BYVAL Handle%, Physical%, Logical%)
  110.     DECLARE SUB EmsPut (BYVAL Segment%, BYVAL Offset%, BYVAL Length%,_
  111.                         BYVAL Page%, BYVAL Handle%, Done%)
  112.     DECLARE SUB EmsRelease (BYVAL Handle%)
  113.     DECLARE SUB EmsRequest (BYVAL Pages%, Handle%)
  114.     DECLARE SUB EmsReSize (BYVAL Handle%, Pages%)
  115.     DECLARE SUB EnablePrtSc ()
  116.     DECLARE SUB EnPrint (BYVAL Prntr%, Buffer$, BYVAL NewLine%)
  117.     DECLARE SUB Explode (BYVAL Y1%, BYVAL X1%, BYVAL Y2%, BYVAL X2%,_
  118.                          BYVAL Attr%, BYVAL Speed%)
  119.     DECLARE SUB FarPoke (BYVAL Segment&, BYVAL Offset&, BYVAL Byte%)
  120.     DECLARE SUB FastPrint (BYVAL Row%, BYVAL Col%, Text$, BYVAL Attr%)
  121.     DECLARE SUB FileDate (BYVAL Switch%, DateTime$, FileSpec$)
  122.     DECLARE SUB GraPrint (BYVAL xLoc%, BYVAL yLoc%, Text$,_
  123.                           BYVAL Attr%, BYVAL Scale%)
  124.     DECLARE SUB HelpMate (BYVAL Colour%, Title$, BYVAL Context%, Topic$)
  125.     DECLARE SUB Conceal (BYVAL Switch%, FileSpec$)
  126.     DECLARE SUB Inform (BYVAL Row%, Message$, BYVAL Attr%, BYVAL Mouse%)
  127.     DECLARE SUB Int2E (DosCmd$)
  128.     DECLARE SUB ItPrint (BYVAL Prntr%, Buffer$, BYVAL NewLine%)
  129.     DECLARE SUB KeyFlush ()
  130.     DECLARE SUB LptSwap (BYVAL Prntr1%, BYVAL Prntr2%)
  131.     DECLARE SUB McgaCopy (BYVAL Switch%, SEG Array())
  132.     DECLARE SUB McgaScroll (BYVAL xLoc%, BYVAL yLoc%, BYVAL xPixels%,_
  133.                             BYVAL yPixels%, BYVAL Direction%)                 
  134.     DECLARE SUB MCgaText (BYVAL xLoc%, BYVAL yLoc%, Text$,_
  135.                           BYVAL Attr%, BYVAL Scale%)
  136.     DECLARE SUB MisTake (BYVAL Row%, Message$, BYVAL Attr%, BYVAL Mouse%)
  137.     DECLARE SUB MouseBorder (BYVAL x1%, BYVAL y1%, BYVAL x2%, BYVAL y2%)
  138.     DECLARE SUB MouseHide ()
  139.     DECLARE SUB MouseMickey (horizontal%, vertical%)
  140.     DECLARE SUB MouseNow (leftButton%, rightButton%, xMouse%, yMouse%)
  141.     DECLARE SUB MousePressLeft (leftCount%, xMouse%, yMouse%)
  142.     DECLARE SUB MousePressRight (rightCount%, xMouse%, yMouse%)
  143.     DECLARE SUB MousePut (BYVAL xMouse%, BYVAL yMouse%)
  144.     DECLARE SUB MouseRelLeft (leftCount%, xMouse%, yMouse%)
  145.     DECLARE SUB MouseRelRight (rightCount%, xMouse%, yMouse%)
  146.     DECLARE SUB MouseRestore ()
  147.     DECLARE SUB MouseSave ()
  148.     DECLARE SUB MouseShow ()
  149.     DECLARE SUB MouseSpeed (BYVAL horizontal%, BYVAL vertical%)
  150.     DECLARE SUB MouseWarp (BYVAL threshold%)
  151.     DECLARE SUB ParkHeads ()
  152.     DECLARE SUB Pause (BYVAL Ticks%)
  153.     DECLARE SUB PerCentBox (BYVAL Switch%, Message$, BYVAL Attr%,_
  154.                             BYVAL PerCent%)
  155.     DECLARE SUB PokeWord (BYVAL Segment&, BYVAL Offset&, BYVAL Word&)
  156.     DECLARE SUB PopUp (BYVAL Row%, BYVAL Col%, BYVAL Hght%, BYVAL Wdth%,_
  157.                        BYVAL Attr%, BYVAL Brdr%, BYVAL Shdw%, BYVAL Zoom%)
  158.     DECLARE SUB PrintSet (BYVAL Row%, BYVAL Col%, BYVAL Attr%,_
  159.                           BYVAL Prntr%, BYVAL Mouse%)
  160.     DECLARE SUB Prn2File (BYVAL Switch%, FileSpec$)
  161.     DECLARE SUB ReDirect (BYVAL Switch%, FileSpec$)
  162.     DECLARE SUB ReSeed (BYVAL Seed&)
  163.     DECLARE SUB ScreenDump ()
  164.     DECLARE SUB Scroll (BYVAL Dir%, BYVAL Y1%, BYVAL X1%, BYVAL Y2%,_
  165.                         BYVAL X2%, BYVAL Units%, BYVAL Attr%)
  166.     DECLARE SUB Secure (BYVAL Switch%, FileSpec$)
  167.     DECLARE SUB Share (BYVAL Switch%, FileSpec$)
  168.     DECLARE SUB ShutUp (BYVAL Speed%)
  169.     DECLARE SUB SpoolDelete (FileSpec$)
  170.     DECLARE SUB SpoolFlush ()
  171.     DECLARE SUB SpoolList (Buffer$)
  172.     DECLARE SUB SpoolReStart ()
  173.     DECLARE SUB SpoolSubmit (FileSpec$)
  174.     DECLARE SUB StringSort (BYVAL Dir%, BYVAL Size%, BYVAL Addr%)
  175.     DECLARE SUB StuffBuffer (Buffer$)
  176.     DECLARE SUB UlPrint (BYVAL Prntr%, Buffer$, BYVAL NewLine%)
  177.     DECLARE SUB VGADim (BYVAL Intensity%)
  178.     DECLARE SUB VGALoad (FileSpec$)
  179.     DECLARE SUB VGAPan (BYVAL X%, BYVAL Y%)
  180.     DECLARE SUB VGASave (FileSpec$)
  181.     DECLARE SUB VgaText (BYVAL xLoc%, BYVAL yLoc%, Text$,_
  182.                          BYVAL Attr%, BYVAL Scale%)
  183.  
  184. '   Mixed-language routines in the library.
  185. '
  186.     DECLARE FUNCTION BinDec& (Binary$)
  187.     DECLARE FUNCTION CapItal$ (Original$)
  188.     DECLARE FUNCTION Centre$ (Text$, MaxWidth%)
  189.     DECLARE FUNCTION DateInput$ (Default$, Context%, Topic$, HotKey%)
  190.     DECLARE FUNCTION DaysBetween& (Date1$, Date2$)
  191.     DECLARE FUNCTION DecBin$ (Decimal&)
  192.     DECLARE FUNCTION DosVersion$ ()
  193.     DECLARE FUNCTION FindFile$ (FileSpec$, Attr%, Mouse%)
  194.     DECLARE FUNCTION GetFlag% (Flag%)
  195.     DECLARE FUNCTION GrAttrib% (ForeGround%, BackGround%)
  196.     DECLARE FUNCTION IsDir% (Test$)
  197.     DECLARE FUNCTION LegalName% (FileSpec$)
  198.     DECLARE FUNCTION LineUp$ (Num#, Places%, Comma%, Length%, Currency$)
  199.     DECLARE FUNCTION LongDate$(Dy%, Mnth%, Yr%)
  200.     DECLARE FUNCTION Match% (Start%, Search$, Pattern$)
  201.     DECLARE FUNCTION RevInput$ (Max%, Visible%, Default$, Legal$, Ctx%,_
  202.                                 Topic$, Mask%, HotKey%)
  203.     DECLARE FUNCTION RootName$ (Path$, Extension%)
  204.     DECLARE FUNCTION Round$ (Number#, Places%)
  205.     DECLARE FUNCTION Salute$ (Original$)
  206.     DECLARE FUNCTION ScreenMode% ()
  207.     DECLARE FUNCTION StripQuote$ (Source$)
  208.     DECLARE FUNCTION UnPad$ (Text$, Length%)
  209.     DECLARE SUB BarMenu (P1%, P2%, P3%, Menu$(), P5%, P6%,_
  210.                          P7%, P8$, Mouse%, HotKeys%)
  211.     DECLARE SUB CheckPrinter (Prntr%, Ready%)
  212.     DECLARE SUB Media (Set%, Drive$, Volume$, Serial$, FileSy$)
  213.     DECLARE SUB Panel (Row%, Col%, Rows%, Cols%, Border%, Attr%)
  214.     DECLARE SUB PickList (Selected%, Title$, Array() AS STRING, Attr%, Mouse%)
  215.     DECLARE SUB SetFlag (Flag%, Setting%)
  216.     DECLARE SUB SortFile (PathName$, OffSet%, FieldLen%, RecordLen%, Done%)
  217.     DECLARE SUB SplitName (Source$, Title$, Initial$, SurName$)
  218.     DECLARE SUB VerMenu (P1%, P2%, P3%, P4%, P5%, P6$, Menu$(),_
  219.                          P8%, P9%, P10%, P11%, P12$, Mouse%, HotKeys%)
  220.     DECLARE SUB VideoMode (Colour%, MaxRes%, VideoRam%)
  221.  
  222. ' ⁄ƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒø
  223. ' ≥     (c) 1992,1993 By Christy Gemmell and Singular SoftWare             ≥
  224. ' ¿ƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒŸ
  225.